home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / database / foxsqz.zip / SQZ.SPR < prev    next >
Text File  |  1994-03-14  |  12KB  |  459 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 03/14/94               SQZ.SPR                 21:03:34 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1994 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18. DO CASE
  19. CASE _WINDOWS
  20.  
  21.     
  22.     #REGION 0
  23.     REGIONAL m.currarea, m.talkstat, m.compstat
  24.     
  25.     IF SET("TALK") = "ON"
  26.         SET TALK OFF
  27.         m.talkstat = "ON"
  28.     ELSE
  29.         m.talkstat = "OFF"
  30.     ENDIF
  31.     m.compstat = SET("COMPATIBLE")
  32.     SET COMPATIBLE FOXPLUS
  33.     
  34.     m.rborder = SET("READBORDER")
  35.     SET READBORDER ON
  36.     
  37.     m.currarea = SELECT()
  38.     
  39.     
  40.     *       *********************************************************
  41.     *       *                                                         
  42.     *       *               Windows Window definitions                
  43.     *       *                                                         
  44.     *       *********************************************************
  45.     *
  46.     
  47.     IF NOT WEXIST("foxsqz") ;
  48.         OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.PJX" ;
  49.         OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.SCX" ;
  50.         OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.MNX" ;
  51.         OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.PRG" ;
  52.         OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.FRX" ;
  53.         OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.QPR"
  54.         DEFINE WINDOW foxsqz ;
  55.             AT  0.000, 0.000  ;
  56.             SIZE 30.154,92.500 ;
  57.             FONT "MS Sans Serif", 8 ;
  58.             STYLE "B" ;
  59.             FLOAT ;
  60.             NOCLOSE ;
  61.             SHADOW ;
  62.             NOMINIMIZE
  63.         MOVE WINDOW foxsqz CENTER
  64.     ENDIF
  65.     
  66.     
  67.     *       *********************************************************
  68.     *       *                                                         
  69.     *       *                SQZ/Windows Screen Layout                
  70.     *       *                                                         
  71.     *       *********************************************************
  72.     *
  73.     
  74.     #REGION 1
  75.     IF WVISIBLE("foxsqz")
  76.         ACTIVATE WINDOW foxsqz SAME
  77.     ELSE
  78.         ACTIVATE WINDOW foxsqz NOSHOW
  79.     ENDIF
  80.     @ 0.692,3.667 TO 3.077,83.334 ;
  81.         PEN 6, 8
  82.     @ 4.769,5.500 SAY "Enter FOXSQZ File Name to Work With :"  ;
  83.         FONT "MS Sans Serif", 8 ;
  84.         STYLE "B"
  85.     @ 20.000,13.000 SAY "Destination for Extraction :"  ;
  86.         FONT "MS Sans Serif", 8 ;
  87.         STYLE "B"
  88.     @ 6.000,11.833 SAY "Enter PassWord (Blank for None):"  ;
  89.         FONT "MS Sans Serif", 8 ;
  90.         STYLE "B"
  91.     @ 7.231,8.667 SAY "Enter Files to Exclude (wildcards ok):"  ;
  92.         FONT "MS Sans Serif", 8 ;
  93.         STYLE "B"
  94.     @ 8.462,12.000 SAY "Enter an Inclusion file name here:"  ;
  95.         FONT "MS Sans Serif", 8 ;
  96.         STYLE "B"
  97.     @ 4.769,46.833 GET SqzArc ;
  98.         SIZE 1.154,29.000 ;
  99.         DEFAULT " " ;
  100.         FONT "MS Sans Serif", 8
  101.     @ 6.000,46.833 GET SqzPass ;
  102.         SIZE 1.154,19.000 ;
  103.         DEFAULT " " ;
  104.         FONT "MS Sans Serif", 8
  105.     @ 7.231,46.833 GET SqzXClude ;
  106.         SIZE 1.154,29.000 ;
  107.         DEFAULT " " ;
  108.         FONT "MS Sans Serif", 8
  109.     @ 8.462,46.833 GET SqzIncFile ;
  110.         SIZE 1.154,29.000 ;
  111.         DEFAULT " " ;
  112.         FONT "MS Sans Serif", 8
  113.     @ 10.923,4.667 GET SqzFSpec ;
  114.         SIZE 1.154,77.000 ;
  115.         DEFAULT " " ;
  116.         FONT "MS Sans Serif", 8
  117.     @ 14.615,1.500 GET SQZFnct ;
  118.         PICTURE "@*VT Compress;Expand;List" ;
  119.         SIZE 2.538,10.333,3.000 ;
  120.         DEFAULT 1 ;
  121.         FONT "MS Sans Serif", 8 ;
  122.         STYLE "B"
  123.     @ 14.846,26.333 GET SqzCmpTyp ;
  124.         PICTURE "@*RHN Maximum ;Fast ;Store Only" ;
  125.         SIZE 1.308,14.333,2.000 ;
  126.         DEFAULT 1 ;
  127.         FONT "MS Sans Serif", 8 ;
  128.         STYLE "B"
  129.     @ 22.769,13.333 GET SqzRStDT ;
  130.         PICTURE "@*C Restore Original FileDateTime" ;
  131.         SIZE 1.308,32.667 ;
  132.         DEFAULT 0 ;
  133.         FONT "MS Sans Serif", 8 ;
  134.         STYLE "B"
  135.     @ 21.462,39.667 GET SqzOver ;
  136.         PICTURE "@*C OverWrite Existing" ;
  137.         SIZE 1.308,22.000 ;
  138.         DEFAULT 0 ;
  139.         FONT "MS Sans Serif", 8 ;
  140.         STYLE "B"
  141.     @ 20.077,40.167 GET SqzDst ;
  142.         SIZE 1.231,45.800 ;
  143.         DEFAULT " " ;
  144.         FONT "MS Sans Serif", 8
  145.     @ 26.385,13.500 GET SqzPage ;
  146.         PICTURE "@*C Pause Each Page " ;
  147.         SIZE 1.308,22.000 ;
  148.         DEFAULT 0 ;
  149.         FONT "MS Sans Serif", 8 ;
  150.         STYLE "B"
  151.     @ 12.846,4.000 GET SQZQuiet ;
  152.         PICTURE "@*C Operate Quietly" ;
  153.         SIZE 1.308,19.167 ;
  154.         DEFAULT 0 ;
  155.         FONT "MS Sans Serif", 8 ;
  156.         STYLE "B"
  157.     @ 27.462,52.167 GET _ExitBtn ;
  158.         PICTURE "@*HT \?Exit" ;
  159.         SIZE 1.769,28.000,2.000 ;
  160.         DEFAULT 1 ;
  161.         FONT "MS Sans Serif", 8 ;
  162.         STYLE "B"
  163.     @ 9.692,4.500 SAY "File Specifications (wildcards are ok delimit each one with space)"  ;
  164.         FONT "MS Sans Serif", 8 ;
  165.         STYLE "B"
  166.     @ 16.154,12.833 GET SqzSpan ;
  167.         PICTURE "@*C Span Disks" ;
  168.         SIZE 1.308,15.167 ;
  169.         DEFAULT 0 ;
  170.         FONT "MS Sans Serif", 8 ;
  171.         STYLE "B"
  172.     @ 12.846,25.000 GET SqzVerify ;
  173.         PICTURE "@*C DOS Verify ON" ;
  174.         SIZE 1.308,18.500 ;
  175.         DEFAULT 0 ;
  176.         FONT "MS Sans Serif", 8 ;
  177.         STYLE "B"
  178.     @ 16.231,28.333 GET SqzWipe ;
  179.         PICTURE "@*C WipeDisk" ;
  180.         SIZE 1.308,13.500 ;
  181.         DEFAULT 0 ;
  182.         FONT "MS Sans Serif", 8 ;
  183.         STYLE "B"
  184.     @ 16.308,41.333 GET SqzLowDens ;
  185.         PICTURE "@*C LowDes" ;
  186.         SIZE 1.308,12.000 ;
  187.         DEFAULT 0 ;
  188.         FONT "MS Sans Serif", 8 ;
  189.         STYLE "B" ;
  190.         WHEN SqzWipe
  191.     @ 1.231,7.333 SAY "FOXSQZ 1.6 Interface Program"  ;
  192.         FONT "MS Sans Serif", 8 ;
  193.         STYLE "B"
  194.     @ 1.231,40.833 SAY "(c) 1993-94 Master Creative Software Inc"  ;
  195.         FONT "MS Sans Serif", 8 ;
  196.         STYLE "B"
  197.     @ 12.923,47.000 SAY "Temp Files Drive "  ;
  198.         FONT "MS Sans Serif", 8 ;
  199.         STYLE "B"
  200.     @ 12.923,82.000 GET SqzTDrv ;
  201.         SIZE 1.154,2.000 ;
  202.         DEFAULT " " ;
  203.         FONT "MS Sans Serif", 8
  204.     @ 17.462,12.833 GET SqzIncSub ;
  205.         PICTURE "@*C Scan Subdirectories" ;
  206.         SIZE 1.308,23.500 ;
  207.         DEFAULT 0 ;
  208.         FONT "MS Sans Serif", 8 ;
  209.         STYLE "B"
  210.     @ 17.462,37.500 GET SqzStoPath ;
  211.         PICTURE "@*C Store Path Name" ;
  212.         SIZE 1.308,20.500 ;
  213.         DEFAULT 0 ;
  214.         FONT "MS Sans Serif", 8 ;
  215.         STYLE "B"
  216.     @ 15.000,13.667 SAY "Method -->"  ;
  217.         FONT "MS Sans Serif", 8 ;
  218.         STYLE "B"
  219.     @ 21.538,13.167 GET SqzResTree ;
  220.         PICTURE "@*C Restore Directories" ;
  221.         SIZE 1.308,22.667 ;
  222.         DEFAULT 0 ;
  223.         FONT "MS Sans Serif", 8 ;
  224.         STYLE "B"
  225.     @ 17.538,58.167 GET SqzStorSpec ;
  226.         PICTURE "@*C Store Path Specified" ;
  227.         SIZE 1.308,24.000 ;
  228.         DEFAULT 0 ;
  229.         FONT "MS Sans Serif", 8 ;
  230.         STYLE "B"
  231.     @ 16.308,54.833 GET SqzFmtTyp ;
  232.         PICTURE "@*RHN Qwik;Cond;UnCond" ;
  233.         SIZE 1.308,12.000,0.000 ;
  234.         DEFAULT 1 ;
  235.         FONT "MS Sans Serif", 8 ;
  236.         STYLE "B" ;
  237.         WHEN SqzWipe
  238.     @ 12.769,45.167 GET SqzLowMem ;
  239.         PICTURE "@*C Conserve Memory" ;
  240.         SIZE 1.308,21.167 ;
  241.         DEFAULT 0 ;
  242.         FONT "MS Sans Serif", 8 ;
  243.         STYLE "B"
  244.     @ 13.000,69.000 SAY "Temp Drive"  ;
  245.         FONT "MS Sans Serif", 8 ;
  246.         STYLE "B"
  247.     
  248.     IF NOT WVISIBLE("foxsqz")
  249.         ACTIVATE WINDOW foxsqz
  250.     ENDIF
  251.     
  252.     READ CYCLE
  253.     
  254.     RELEASE WINDOW foxsqz
  255.     SELECT (m.currarea)
  256.     
  257.     
  258.     #REGION 0
  259.     
  260.     SET READBORDER &rborder
  261.     
  262.     IF m.talkstat = "ON"
  263.         SET TALK ON
  264.     ENDIF
  265.     IF m.compstat = "ON"
  266.         SET COMPATIBLE ON
  267.     ENDIF
  268.     
  269.  
  270. CASE _DOS
  271.  
  272.     
  273.     #REGION 0
  274.     REGIONAL m.currarea, m.talkstat, m.compstat
  275.     
  276.     IF SET("TALK") = "ON"
  277.         SET TALK OFF
  278.         m.talkstat = "ON"
  279.     ELSE
  280.         m.talkstat = "OFF"
  281.     ENDIF
  282.     m.compstat = SET("COMPATIBLE")
  283.     SET COMPATIBLE FOXPLUS
  284.     
  285.     m.currarea = SELECT()
  286.     
  287.     
  288.     *       *********************************************************
  289.     *       *                                                         
  290.     *       *                MS-DOS Window definitions                
  291.     *       *                                                         
  292.     *       *********************************************************
  293.     *
  294.     
  295.     IF NOT WEXIST("foxsqz") ;
  296.         OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.PJX" ;
  297.         OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.SCX" ;
  298.         OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.MNX" ;
  299.         OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.PRG" ;
  300.         OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.FRX" ;
  301.         OR UPPER(WTITLE("FOXSQZ")) == "FOXSQZ.QPR"
  302.         DEFINE WINDOW foxsqz ;
  303.             FROM INT((SROW()-25)/2),INT((SCOL()-80)/2) ;
  304.             TO INT((SROW()-25)/2)+24,INT((SCOL()-80)/2)+79 ;
  305.             FLOAT ;
  306.             NOCLOSE ;
  307.             SHADOW ;
  308.             NOMINIMIZE ;
  309.             COLOR SCHEME 1
  310.     ENDIF
  311.     
  312.     
  313.     *       *********************************************************
  314.     *       *                                                         
  315.     *       *                SQZ/MS-DOS Screen Layout                 
  316.     *       *                                                         
  317.     *       *********************************************************
  318.     *
  319.     
  320.     #REGION 1
  321.     IF WVISIBLE("foxsqz")
  322.         ACTIVATE WINDOW foxsqz SAME
  323.     ELSE
  324.         ACTIVATE WINDOW foxsqz NOSHOW
  325.     ENDIF
  326.     @ 0,1 TO 2,76 PANEL
  327.     @ 4,4 SAY "Enter FOXSQZ File Name to Work With :" ;
  328.         SIZE 1,37, 0
  329.     @ 16,13 SAY "Destination for Extraction :" ;
  330.         SIZE 1,28, 0
  331.     @ 5,9 SAY "Enter PassWord (Blank for None):" ;
  332.         SIZE 1,32, 0
  333.     @ 6,3 SAY "Enter Files to Exclude (wildcards ok):" ;
  334.         SIZE 1,38, 0
  335.     @ 7,7 SAY "Enter an Inclusion file name here:" ;
  336.         SIZE 1,34, 0
  337.     @ 4,42 GET SqzArc ;
  338.         SIZE 1,29 ;
  339.         DEFAULT " "
  340.     @ 5,42 GET SqzPass ;
  341.         SIZE 1,19 ;
  342.         DEFAULT " "
  343.     @ 6,42 GET SqzXClude ;
  344.         SIZE 1,29 ;
  345.         DEFAULT " "
  346.     @ 7,42 GET SqzIncFile ;
  347.         SIZE 1,29 ;
  348.         DEFAULT " "
  349.     @ 9,4 GET SqzFSpec ;
  350.         SIZE 1,69 ;
  351.         DEFAULT " "
  352.     @ 12,1 GET SQZFnct ;
  353.         PICTURE "@*VT Compress;Expand;List" ;
  354.         SIZE 1,10,3 ;
  355.         DEFAULT 1
  356.     @ 12,25 GET SqzCmpTyp ;
  357.         PICTURE "@*RHN Maximum ;Fast ;Store Only" ;
  358.         SIZE 1,14,0 ;
  359.         DEFAULT 1
  360.     @ 17,33 GET SqzRStDT ;
  361.         PICTURE "@*C Restore Original FileDateTime" ;
  362.         SIZE 1,33 ;
  363.         DEFAULT 0
  364.     @ 17,6 GET SqzOver ;
  365.         PICTURE "@*C OverWrite Existing" ;
  366.         SIZE 1,22 ;
  367.         DEFAULT 0
  368.     @ 16,42 GET SqzDst ;
  369.         SIZE 1,32 ;
  370.         DEFAULT " "
  371.     @ 20,14 GET SqzPage ;
  372.         PICTURE "@*C Pause Each Page " ;
  373.         SIZE 1,20 ;
  374.         DEFAULT 0
  375.     @ 10,4 GET SQZQuiet ;
  376.         PICTURE "@*C Operate Quietly" ;
  377.         SIZE 1,19 ;
  378.         DEFAULT 0
  379.     @ 22,48 GET _ExitBtn ;
  380.         PICTURE "@*HT \?Exit" ;
  381.         SIZE 1,28,2 ;
  382.         DEFAULT 1
  383.     @ 8,4 SAY "File Specifications (wildcards are ok delimit each one with space)" ;
  384.         SIZE 1,66, 0
  385.     @ 13,4 GET SqzSpan ;
  386.         PICTURE "@*C Span Disks" ;
  387.         SIZE 1,14 ;
  388.         DEFAULT 0
  389.     @ 10,25 GET SqzVerify ;
  390.         PICTURE "@*C DOS Verify ON" ;
  391.         SIZE 1,17 ;
  392.         DEFAULT 0
  393.     @ 13,19 GET SqzWipe ;
  394.         PICTURE "@*C WipeDisk" ;
  395.         SIZE 1,12 ;
  396.         DEFAULT 0
  397.     @ 13,33 GET SqzLowDens ;
  398.         PICTURE "@*C LowDes" ;
  399.         SIZE 1,10 ;
  400.         DEFAULT 0 ;
  401.         WHEN SqzWipe
  402.     @ 1,4 SAY "FOXSQZ 1.6 Interface Program" ;
  403.         SIZE 1,28, 0
  404.     @ 10,74 GET SqzTDrv ;
  405.         SIZE 1,2 ;
  406.         DEFAULT " "
  407.     @ 14,4 GET SqzIncSub ;
  408.         PICTURE "@*C Scan Subdirectories" ;
  409.         SIZE 1,23 ;
  410.         DEFAULT 0
  411.     @ 14,28 GET SqzStoPath ;
  412.         PICTURE "@*C Store Path Name" ;
  413.         SIZE 1,19 ;
  414.         DEFAULT 0
  415.     @ 12,12 SAY "Method -->" ;
  416.         SIZE 1,10, 0
  417.     @ 18,6 GET SqzResTree ;
  418.         PICTURE "@*C Restore Directories" ;
  419.         SIZE 1,23 ;
  420.         DEFAULT 0
  421.     @ 14,49 GET SqzStorSpec ;
  422.         PICTURE "@*C Store Path Specified" ;
  423.         SIZE 1,24 ;
  424.         DEFAULT 0
  425.     @ 1,34 SAY "(c) 1993-94 Master Creative Software Inc" ;
  426.         SIZE 1,40, 0
  427.     @ 13,45 GET SqzFmtTyp ;
  428.         PICTURE "@*RHN Qwik;Cond;UnCond" ;
  429.         SIZE 1,10,0 ;
  430.         DEFAULT 1 ;
  431.         WHEN SqzWipe
  432.     @ 10,43 GET SqzLowMem ;
  433.         PICTURE "@*C Conserve Memory" ;
  434.         SIZE 1,19 ;
  435.         DEFAULT 0
  436.     @ 10,64 SAY "Temp Drive" ;
  437.         SIZE 1,10, 0
  438.     
  439.     IF NOT WVISIBLE("foxsqz")
  440.         ACTIVATE WINDOW foxsqz
  441.     ENDIF
  442.     
  443.     READ CYCLE
  444.     
  445.     RELEASE WINDOW foxsqz
  446.     SELECT (m.currarea)
  447.     
  448.     
  449.     #REGION 0
  450.     IF m.talkstat = "ON"
  451.         SET TALK ON
  452.     ENDIF
  453.     IF m.compstat = "ON"
  454.         SET COMPATIBLE ON
  455.     ENDIF
  456.     
  457.  
  458. ENDCASE
  459.